home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1995 March / PC Answers CD-ROM 5 (Future Publishing) (March 1995).iso / public / experts / prog / boxes.bas next >
Encoding:
BASIC Source File  |  1994-11-30  |  524 b   |  17 lines
  1.  
  2.     SCREEN 13
  3.     col = 0
  4.     FOR y = 0 TO 15
  5.         FOR x = 0 TO 15
  6.             DRAW "BM" + STR$(x * 20) + "," + STR$(y * 12)  ' Position cursor
  7.             DRAW "C" + STR$(col)                           ' Set the color
  8.             DRAW "R20 D12 L20 U12 BF4"                     ' Draw the box
  9.             DRAW "P" + STR$(col) + "," + STR$(col)         ' Fill the box 
  10.             col = col + 1                                  ' Increment color
  11.         NEXT
  12.     NEXT
  13.  
  14.     DO
  15.     LOOP UNTIL INKEY$ <> ""
  16.  
  17.